Раве 72 


S> IF. WHILE IH FORTH. SCREENS ARE TO EE 
LOADED. ТУРЕ SCR-LOAD AND PLACE ТАРЕ IN 
FLAY. 2 


ез INVOKE “EDITOR”. IF DESIRED. “ONE WORD 
CALL? 


жж«МПТЕР: 
Hh» IF HT ANY TIME THE SYSTEM IS ІМ BASIC 
AND RESTART IS DESIRED : 
GOTO = SENTER” 


E» WHILE ІМ FORTH. CAPS ^ SYMBOL HILL 
PERMIT USING SYMBOLS 
Ел ТТ WNOXREVERSE SL 
USING DEFINED FUNCTIONS IN FORTH МА" 
CRASH: THE SYSTEM. 
QM, EMIT GIVES A "ВЕЕР". 
255 EMIT ІС FOR SAVING PROGRAM ON TAPE 
TAFE- SAVE”. 
254 EMIT IS FOR SAVING SCREENS ON ТАРЕ 
“SCR-SAVE~. 
25x EMIT IS FOR LOADING SCREENS FROM 
TAPE SCR- LURD: 


Oo THIS MANUAL IS NOT INTENDED TO FUNCTION 
AS A TUTORIAL. WE CAN HIGHLY RECOMMEND SEVERAL 
TEXTS FOR THIS FURPOSE. AMONG THEM НЕЕ “STARTING 
FORTH” BY LEO BRODIE ‘ALTHOUGH ІТ ІЗ MODELED 
AFTER O FORTH-795. “THE: ‘COMPLETE FORTH” BY FANE 
WINFIELD. “FORTH FUNDAMENTALS - WoL. I^ BY KEVIN 
MCCABE» “THNTRODUCTION To FORTH” Ет LEC SCANLON 
IF YOU CAN МОТ LOCATE THESE. OF НЫТ OTHER FORTH 
TERT. WE WILL БЕ HAPPY TO SERVICE YOUR ORDER. 
PRICES AND AVAILABILITY WILL BE РЕПУІРЕр UN 
REQUEST. 


MEMOIRS МАЕ 


neces Mente enone areas semet tore wrens soan: 


THE FOLLOWING ARE SOME ADDRESSES ІМ НЕм THAT MAT 
BE PARTICULARLY USEFUL : 


ӨРГЕ ТОР OF BASIC 
Crk AVAILABLE FOR BASIC PROGRAMMING 


i START OF INTERFACE 


г 
= 
СШ 
КА! 
А 
- 
Dor 


; ЕТНЕТ OF FORTH 


1 i 
= 
Ti 
T 


HERE-&SD ; START OF РАС 


i МАЕМ START 


т: 
i 
p 
|. 


; COLD START 


T: 
T 
L 

to 


;FEHCE «COLD START VALUE > 


T: 
т 
its 
T i 


CFSF ; STRET OF DATA STACK (50; 
DECREASING ADDR. 2 


; START OF TIE 
“TERMINAL IHPUT BUFFER > 


- 
7 
Ti 
T 


Pagi iSTART OF RETORN STACK «Ra» 
(DECREASING ADDR. » 


Dagi iS7ART OF USER VARIABLES 
DES ;S7TART OF DISK BUFFER 
D4nR1 ;STRHET OF SCREEN & 


FCA > ТОР MOST OF SCREEN 





SCR-LOAD 


DEPTH 


HL IST 


CLIP 


2DROP 


2S AP 
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МЕУ 
RETURN TO Е, 

SAVE AND VERIFY FIG-FOETH ON 
TAFE. 


SAVE FIND VERIFY SCREENS B 
THROUGH Э. 


LOAD SCREENS й THROUGH 3. 


с-м 
NUMBER OF ITEMS ОМ PARAMETER 
STACK. 


DISPLAY МЕН АНГ LIST OF ALE 
WORDS ІМ CONTEST DICTIONARY 
ESCAPE WITH ANY KES 


SOUND "BEEF", 


DISPLAY WARMING ANG DEPTH. 


с ADDR м — > 
DISFLAY М BYTES «ІМ HEX» 
BEGINNING RT ADDR. 


TE. ец 
PROP COUELE NUMBER. 


5, ME Doo D уэ 
SWAP z DOUBLE МИМБЕР 
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SAMPLE SCREENS AND ERROR MESSAGES 


ceee wees 2252 255 reete н sence Senet sone seses sonce seost --. orete vanes eee? meos sonce sesos seeme seess sesos seses seoor seess seese cover nests sete: 
seese --- sasse Senne cerce Heb snese ceems couno snore memos SETS seese seose sameo smao sanes seeen -meee sosse canes sares senso sonar seess soemo ШІ sems seess cases moses cases rS 


SAMPLE SCREENS ARE INCLUDED ІМ THE гає 
FIG-FORTH KERNEL. TO LOAD WHILE ІМ FORTH: 
LOUAD-SCR <ENTER> 


жжжМОТЕ5ж- SCREENS 4 AND 8 CONTAIN “LITERAL ^ 
ЕЕЕПЕ MESSAGES. НМ: WARMING ІС SET TO 1. IF 
THESE SCREENS ARE МОТ USED FOR ERROR MESSAGES 
SET WARMING TO й. IE: й WARNING ! 

SCREEN B Іс NORMALLY USED ONLY AS LA 
DIRECTOR. AND МОТ FOR LOADING 


COFYR IGHT 


seses 9M soose seses -- seses sesos somes ..- 
—— eens seses seene seese seess sesos sense 


2 FIG-FORTH PROGRAM AND INSTRUCTIONS ARE 
QTECTED BY COPYRIGHT ¿Co ізді Ev E. A. HORDEN. 
ones FIG-FORTH Іс DISTRIBUTED EXCLUSIVELY БҮ 
HAWG WILD SOFTWARE. ALL FIGHTS RESERVED. THE 
CONTENTS OF THE 2865 FIG-FORTH HED IR ARC 
INSTRUCTIONS MAY PIT EE REPRODUCED ЕСЕ 
REDIZTRIELTIOMN Ет ANY MEANS FOR ANY PURPOSE. 
COPIES MAY ONLY BE REPRODUCED Ет THE ORIGINAL 
OWNER FOR THE EXPRESS PURPOSE OF SAWING FERSOMAL 
ESPANCED AND OR PERSONAL BACK-UP FILES. 

HAWG WILD SOFTWARE ТМ 

Р. 0. BOX Fees 

LITTLE FROCK. AR Tzzil? 

THANE "Obl 


бетта meso mages sosse sesos sewoe sense ssas seme soose 


HE WISH TO TAKE THIS OPPORTUNITY TO THANE YOU 
FOR SELECTING 2669 FIG-FORTH FROM HAWG WILD 
SOFTWARE ТМ. WE HOPE ‘YOU ARE AS PLEASED WITH 
TOUR PURCHASE AS WE ARE TO HAVE YOU AS A VALUED 
CUSTOMER, | 

HAWG HILE ZüFTHBRHREXTM». Р.П. BOS FEES. LITTLE 
ROCK AR P2227 HAS FORTH KERNELS FÜR MOST 
PERSONAL COMPUTERS. WE WOULD. LIKE TO BE YOUR 
FORTH CONNECTION. WE INVITE COMMENTS FROM OUR 
CUSTOMERS AND INQUIRIES FROM INTERESTED PARTIES. 
ADDRESS ALL CORRESPONDENCE TO THE ABOVE ADDRESS. 


GARY SMITH. PRESIDENT бам с ў A. 





fig-FORTH GLOSSARY 


This glossary contains all of the word definitions 
in Release 1 of fig-FORTH. The definitions are 
presented in the order of their ascii sort. 


The first line of each entry shows a symbolic des- 
cription of the action of the procedure on the 
parameter stack. The symbols indicate the order 
in which input parameters have been placed on the 
Stack. Three dashes "---" indicate the execution 
point; any parameters left on the stack are listed. 
In this notation, the top of the stack is to the 
right. 


The symbols include: 


addr memory address 


b 8 bit byte (i.e. hi 8 bits zero) 

c 7 bit ascii character (hi 9 bits zero) 

d 32 bit signed double interger, most 
significant portion with sign on top 
of stack. 

f boolean flag. O=false, non-zero= true 

£f boolean false flag = 0 

n 16 bit signed interger number 

u 16 bit unsigned interger 

tf boolean true flag. » non-zero 


The capital letters on the right show definition 
characteristics. 


C May only be used within a colon definition. 
A digit indicates number of memory ad- 
dresses used, if other than one. 


E Intended for execution only. 

LO Level Zero definition of FORTH-78 

Ll Level One definition of FORTH-78 

P Has precedence bit set. Will execute even 
when compiling. 

U A user variable 


This glossary has been made available 


by the Forth Interest Group, 
P.O. Box 1105, San Carlos, Ca 94070 


To 
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Unless otherwise noted, all references to numbers 
are for 16 bit signed intergers. On 8 bit data 
bus computers, the high byte of a number is on 
top of the stack, with the sign in the leftmost 
bit. For 32 bit signed double numbers, the most 
significant part (with the sign) is on top. 


All arithmetic is implicitly 16 bit signed interger 
math, with error and under-flow indication unspecified. 


ыыы 


п addr --- LO 
Store 16 bits of n at address. 
Pronounced "store" 


:CSP 
Save the stack position in CSP. Used as 
part of the compiler security. 


Li dl --- 42 LO 
Generate a double number dl, the next ascii 
character which is placed in an output 
string. Result d2 is the quotient after 
division by BASE, and is maintained for 
further processing. Used between <# and 4$». 
See #5. 


H> d --- addr count LO 
Terminates numeric output conversion by 
dropping d, leaving the text address and 
character count suitable for TYPE. 


#5 dl --- 42 LO 
Generates ascii text in the text output 
buffer, by the use of #, until a zero 
double number n2 results. Used between 
<# and #>. 


, ады еі addr P , LO 
Used in the form: 
' nnnn 
Leaves the parameter field address of 
dictionary word nnnn. As a compiler dir- 

. ective, executes іп a colon-definition to 
compile the address as a literal. If the 
word is not found after a search of CONTEXT 
and CURRENT, an appropriate error message 
is given. Pronounced "tick". 


( P,LO 
Used in the form: 
( сссс) 
Ignore a comment that will be delimited by 





(; CODE) 


(*LOOP) 


(ABORT) 


(DO) 


(FIND) 


(LINE) 


(LOOP) 


(NUMBER) 
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a right parenthesis on the same line. 

May occur during execution or in a colon- 
definition. A blank after the leading 
parenthesis is required. 


C+ 
The run-time procedure, compiled by ." 
which transmits the following in-line 
text to the selected output device. See ." 

c 
The run-time procedure, compiled by ;CODE, 
that rewrites the code field of the most 
recently defined word to point to the 
following machine code sequence. Sée ;CODE. 


n --- C2 
The run-time procedure compiled by +LOoP, 
which increments the loop index by n and 
tests for loop completion. See +LOOP. 


Executes after an error when WARNING is -1. 
This word normally executes ABORT, but 

may be altered (with care) to a user's 
alternative procedure. 


C 
The run-time procedure compiled by DO 
which moves the loop control parameters 
to the return stack. See DO. 


addrl addr2 --- pfa b tf (ok) 

addrl addr2 --- ff (bad) 

Searches the dictionary starting at the 

name field address addr2, matching to the 
text at addrl. Returns parameter field 
address, length byte of name field and 
boolean true for a good match. If no 

match is found, only a boolean false is left. 


nl n2 --- addr count 

Convert the line number nl and the screen 
n2 to the disc buffer address containing 
the data. A count of 64 indicates the 
full line text length. 


C2 
The run-time procedure compiled by LOOP 
which increments the loop index and tests 
for loop completion. See LOOP. 


dl addrl --- d2 addr2 
Convert the ascii text beginning at addrl+l 
with regard to BASE. The new value is 


e 





"Ғ 


* /MOD 


*BUF 


*LOOP 
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accumulated into double number dl, being 
left as d2. Addr2 is the address of the 
first unconvertable digit. Used by NUMBER. 


nl n2 --- prod LO 
Leave the signed product of two signed 
numbers. 


nl n2 n3 --- n4 LO 
Leave the ratio n4 = nl*n2/n3 where all 
are signed numbers. Retention of an inter- 
mediate 31 bit product permits greater 
accuracy than would be available with the 
sequence: nl n2 * n3 / E 


nl n2 n3 --- n4 n5 LO 
Leave the quotient n5 and remainder n4 
of the operation nl*n2/n3 . A 31 bit 
intermediate product is used as for */. 


nl n2 --- sum Т LO 
Leave the sum of nl*n2. 


n addr --- LO 
Add n to the value at the address. 
Pronounced "plus-store". 


nl n2 --- n3 
Apply the sign of n2 to nl, which is 
left as n3. 


addrl --- addr2 f 

Advance the disc buffer address addrl to 
the address of the next buffer addr2. 
Boolean f is false when addr2 is the 
buffer presently pointed to by variable 
PREV. 


nl --- (run) 
addr n2 --- (compile) P,C2,L0 
Used in a colon-definition in the form: 

DO ... nl +LOOP 
At run-time, +LOOP selectively controls 
branching back to the corresponding DO 
based on nl, the loop index and the loop 
limit. The signed increment nl is added 
to the index and the total compared to 
the limit. The branch back to DO occurs 
until the new index is equal to or greater 
than the limit (п1>0), or until the new 
index is equal to or less than the limit 
(п1<0). Upon exiting the loop, the para- 
meters are discarded and execution con- 
tinues ahead. 





———————————————————————————— RÀ QN PIQIÍPIBQPÉBIBIBPIBIPPB 
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At compile time, +LOOP compiles the run- 
time word (+LOOP) and the branch offset 
computed from HERE to the address left 
on the stack by DO. n2 is used for 
compile time error checking. 


*ORIGIN n --- addr 
Leave the memory address relative by n 
to the origin parameter area. n is the 
minimum address unit, either byte or 
word. This definition is used to access 
or modify the boot-up parameters at the 
origin area. 


, n'es LO 
Store n into the next available diction- 
ary memory cell, advancing the dictionary 
pointer. (comma) 


- nl n2 --- diff LO 
Leave the difference of nl-n2. 


-> P, LO 
Continue interpretation with the next 
disc screen. (pronounced next-screen). 


-DUP nl -- nl (if zero) 
nl -- nl nl (non-zero) LO 
Reproduce nl only if it is non-zero. 
This is usually used to copy a value 
just before IF, to eliminate the need 
for an ELSE part to drop it. 


-FIND --- pfa b tf (found) 
wow | ff (not found) 
Accepts the next word (delimited by 
blanks) in the input stream to HERE, 
and searches the CONTEXT and then 
CURRENT vocabularies for a matching 
entry. If found, the dictionary entry's 
parameter field address, its length 
byte, and a boolean true is left. 
Otherwise, only a boolean false is left. 


-TRAILING addr nl --- addr n2 
Adjusts the character count nl of a 
text string beginning address to sup- 
press the output of trailing blanks. 
i.e. the characters at addr+nl to 
addr*n2 are blanks. 


EI D ceo» LO 
Print a number from a signed 16 bit 
two's complement value, converted 


. LINE 


/MOD 


9.1723 


0« 


OBRANCH 
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according to the numeric BASE. A 
trailing blank follows. Pronounced "dot". 


P,LO 

Used in the form: 
.” есес” 

Compiles an in-line string cccc (delimited 
by the trailing ") with an execution pro- 
cedure to transmit the text to the selected 
output device. If executed outside a def- 
inition, ." will immediately print the 
text until the final ". The maximum number 
of characters may be an installation dep- 
endent value. See (."). - 


line scr --- 

Print on the terminal device, a line of 
text from the disc by its line and screen 
number. Trailing blanks are suppressed. 


nl n2 --- 

Print the number nl right aligned in a 
field whose width is n2. No following 
blank is printed. 


nl n2 --- quot LO 
Leave the signed quotient of nl/n2. 


nl n2 --- rem quot LO 
Leave the remainder and signed quotient 
of nl/n2. The remainder has the sign of 
the dividend. 


-— «ә — n 


These small numbers are used so often 
that it is attractive to define them 
by name in the dictionary as constants. 


n --- f LO 
Leave a true flag if the number is less 
than zero (negative), otherwise leave 

a false flag. 


n --- f LO 
Leave a true flag if the number is equal 
to zero, otherwise leave a false flag. 


f --- c2 


The run-time procedure to conditionally 


branch. If f is false (zero), the 
following in-line parameter is added to 
the interpretive pointer to branch ahead 
or back. Compiled by IF, UNTIL, and WHILE. 





l* 


2* 


; CODE 
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nic 9. Hu ы 
Increment nl by 1 
nl. е» A2 
Leave nl incremented by 2. 

P,b,LO 


Used in the form called a colon- 
definition: 

ОЧТА S 
Creates a dictionary entry defining cccc 
as equivalent to the following sequence 
of Forth word definitions '...' until 
the next ';' or ';CODE'. The compiling 
process is done by the text interpreter 
as long as STATE is non-zero. Other 
details are that the CONTEXT vocab- 
ulary is set to the CURRENT vocabulary 
and that words with the precedence bit 
set (P) are executed rather than being 
compiled. 


P,C,LO 
Terminate a colon-definition and stop 
further compilation. Compiles the run- 
time ;S. 


P,C,LO 

Used in the form: 
| COSC: Qs CODE 
assembly mnemonics 

Stop compilation and terminate a new 
defining word cccc by compiling (;CODE). 
Set the CONTEXT vocabulary to ASSEMBER, 
assembling to machine code the following 
mnemonics. 


When cccc later executes in the form: 
cccc  nnnn 

the word nnnn will be created with its 
execution procedure given by the machine 
code following cccc. That is, when nnnn 
is executed, it does so by jumping to 

the code after nnnn. An existing defining 
word must exist in cccc prior to ;CODE. 


P,LO 
Stop interpretation of a screen. ;S is 
also the run-time word compiled at the 
end of a colon-definition which returns 
execution to the calling procedure. 


nl. n2 ose f LO 
Leave a true flag if nl is less than n2; 
otherwise leave a false flag. 


«t 


« BUILDS 


>R 


?COMP 


?CSP 


?ERROR 
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LO 
Setup for pictured numeric output 
formatting using the words: 
<# # #S SIGN $> 
The conversion is done on a double number 
producing text at PAD. 


C,LO 

Used within a colon-definition: 

2. cece «BUILDS ... 

DOES» ... ; 

Each time cccc is executed, <BUILDS 
defines a new word with a high-level 
execution procedure. Executing cccc 
in the form: 

ccce nnnn 
uses <BUILDS to create a dictionary 
entry for nnnn with a call to the DOES> 
part for nnnn. When nnnn is later ex- 
ecuted, it has the address of its para- 
meter area on the stack and executes the 
words after DOES» in cccc. «BUILDS and 
DOES» allow run-time procedures to be 
written in high-level rather than in 
assembler code (as required by ;CODE). 


nl n2 --- f LO 
Leave a true flag in nlzn2; otherwise 
leave a false flag. 


hl n2 --- f LO 
Leave a true flag if nl is greater than 
n2; otherwise a false flag. 


n --- ) C,LO 
Remove a number from the computation 

stack and place as the most access- 

able on the return stack. Use should 

be balanced with R» in the same definition. 


addr -- LO 
Print the value contained at the address 
in free format according to the current 
base. 


Issue error message if not compiling. 
Issue error message if stack position 
differs from value saved in CSP. 

f n --- 


Issue an error message number n, if the 
boolean flag is true. 





NENNEN sscces2s2sQSeedd:--—SaScxx—Ad9MgagoEÓE 


Page 14 


?EXEC : ; 
Issue an error message if not executing. 


?2LOADING | 
Issue an error message if not loading. 


?РАІН5 nl n2 =-= 
Issue an error message if nl does not 


equal n2. The message indicates that 
compiled conditionals do not match. 


?STACK 
Issue an error message if the stack is 


out of bounds. This definition may be 
installation dependent. 


? TERMINAL --- f 
Perform a test of the terminal key- 
board for actuation of the break key. 
A true flag indicates actuation. This 
definition is installation dependent. 


@ addr --- n LO 
Leave the l6 bit contents of address. 


ABORT LO 
Clear the stacks and enter the exec- 
ution state. Return control to the 
operators terminal, printing a mess- 
age appropriate to the installation. 


ABS п --- Uu LO 
Leave the absolute value of n as u. 


AGAIN addr n --- (compiling) P,C2,L0 
Used in a colon-definition in the form: 
BEGIN ... AGAIN 
At run-time, AGAIN forces execution to 
return to corresponding BEGIN. There is 
no effect on the stack. Execution cannot 
leave this loop (unless R>DROP is exec- 
uted one level below). 


At compile time, AGAIN compiles BRANCH 
with an offset from HERE to addr. п is 
used for compile-time error checking. 


ALLOT п === LO 
Add the signed number to the dictionary 
pointer DP. May be used to reserve dic- 
tionary space or re-origin memory. n is 
with regard to computer address type 
(byte or word). 


Eee OO а к55555555555555555555555555 кк 


AND 


B/BUF 


B/SCR 


BACK 


BASE 


BEGIN 


BL 


BLANKS 


BLK 
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nl n2 --- n3 LO 
Leave the bitwise logical and of nl and 
n2 as n3. 


This constant leaves the number of bytes 
per disc buffer, the byte count read 
from disc by BLOCK. 


--- п 
This constant leaves the number of blocks 
per editing screen. By convention, an 
editing screen is 1024 bytes organized as 
16 lines of 64 characters each. * 


addr --- 

Calculate the backward branch offset from 
HERE to addr and compile into the next 
available dictionary memory address. 


A user variable containing the current 
number base used for input and output 
conversion. 


---. addr п (compiling) P,LO 
Occurs in a colon-definition in the form: 

BEGIN ... UNTIL 

BEGIN ... AGAIN 

BEGIN  ... WHILE  ... REPEAT 
At run-time, BEGIN marks the start of a 
sequence that may be repetitively executed. 
It serves as a return point from the cor- 
responding UNTIL, AGAIN or REPEAT. When 
executing UNTIL, a return to BEGIN will 
occur if the top of the stack is false; 
for AGAIN and REPEAT a return to BEGIN 
always occurs. 


At compile-time, BEGIN leaves its ret- 
urn address and n for compiler error 
checking. 


--- Сс 
А constant that leaves the ascii value 
for "blank". 


addr count --- 
Fill an area of memory beginning at 
addr with blanks. 


=<- addr U, LO 
A user variable containing the block 
number being interpreted. If zero, input 
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BLOCK 


BLOCK- READ 
BLOCK-WRITE 


BRANCH 


BUFFER 


с, 


са 


СҒА 
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із being taken from the terminal input 
buffer. 


n --- addr LO 
Leave the memory address of the block 
buffer containing block n. If the block 

is not already in memory, it is transferred 
from disc to which ever buffer was least 
recently written. If the block occupying 
that buffer has been marked as updated, 

it is rewritten to disc before block n 

is read into the buffer. See also BUFFER, 
R/W UPDATE FLUSH 


These are the preferred names for the 
installation dependent code to read and 
write one block to the disc. 


C2,L0 
The run-time procedure to uncondition- 
ally branch. An in-line offset is added 
to the interpretive pointer IP to branch 
ahead or back. BRANCH is compiled by 
ELSE, AGAIN, REPEAT. 


n --- addr 

Obtain the next memory buffer, assigning 
it to block n. If the contents of the 
buffer is marked as updated, it is written 
to the disc. The block is not read from 
the disc. The address left is the first 
cell within the buffer for data storage. 


b addr --- 

Store 8 bits at address. On word addressing 
computers, further specification is necess- 
ary regarding byte addressing. 


b — 

Store 8 bits of b into the next avail- 
able dictionary byte, advancing the 
dictionary pointer. This is only avail- 
able on byte addressing computers, and 
should be used with caution on byte 
addressing mini-computers. 


addr --- b 

Leave the.8 bit contents of memory address. 

On word addressing computers, further spec- 
ification is needed regarding byte addressing. 


pfa --- cfa 
Convert the parameter field address of a 
definition to its code field address. 
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CMOVE from to count --- 
Move the specified quantity of bytes 
beginning at address from to address 
to. The contents of address from is 
moved first proceding toward high mem- 
ory. Further specification is necessary 
on word addressing computers. 


COLD 
The cold start procedure to adjust the 
dictionary pointer to the minimum standard 
and restart via ABORT. May be called from 
the terminal to remove application programs 
and restart. - 


COMPILE CZ 
When the word containing COMPILE executes, 
the execution address of the word follow- 
ing COMPILE is copied (compiled) into the 
dictionary. This allows specific compil- 
ation situations to be handled in addition 
to simply compiling an execution address 
(which the interpreter already does). 


CONSTANT n “-- LO 
A defining word used in the form: 
n CONSTANT сссс 
to create word cccc, with its parameter 
field containing n. When cccc is later 
executed, it will push the value of n 
to the stack. 


CONTEXT --- addr U,LO 
A user variable containing a pointer to 
the vocabulary within which dictionary 
searches will first begin. 


COUNT addrl ---  addr2 п LO 
Leave the byte address addr2 and byte 
count n of a message text beginning at 
address addrl. It is presumed that the 
first byte at addrl contains the text 
byte count and the actual text starts 
with the second byte. Typically, COUNT 
is followed by TYPE. 


CR LO 
Transmit a carriage return and line feed 
to the selected output device. 


CREATE 
A defining word used in the form: 
CREATE cccc 
by such words as CODE and CONSTANT to 





CSP 


D+ 


DABS 


DECIMAL 


DEFINITIONS 


DIGIT 
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create a dictionary header for a Forth 
definition. The code field contains the 
address of the words parameter field. 
The new word is created in the CURRENT 
vocabulary. 


---  addr U 
A user variable temporarily storing the 

stack pointer position, for compilation 

error checking. 


dl d2 --- dsum 
Leave the double number sum of two double 
numbers. У 


di n === 42 
Apply the sign of n to the double number 
dl, leaving it as d2. 


а --- Ll 
Print a signed double number from a 32 
bit two's compliment value. The high- 
order 16 bits are most accessable on 

the stack. Conversion is performed 
according to the current BASE. A blank 
follows. Pronounced "D-dot". 


A HN 
Print a signed double number d right 
aligned in a field n characters wide. 


а --- ud 
Leave the absolute value ud of a double 
number. 


LO 
Set the numeric conversion BASE for 
decimal input-output. 


Ll 

Used in the form: 
cccc DEFINITIONS 

Set the CURRENT vocabulary to the CONTEXT 
vocabulary. In the example, executing 
vocabulary name cccc made it the CONTEXT 
vocabulary and executing DEFINITIONS made 
both specify vocabulary cccc. 


Go uni ез” n2 OE (ok) 

с 84 - ХЕ (bad) 

Converts the ascii character c (usin 
base nl) to its binary equivalent n2, 
accompanied by a true flag. If the con- 
version is invalid, leaves only a false 
flag. 





VLIST 


DLITERAL 


DMINUS 


DOES» 
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List he names of the dictionary entries 
in the CONTEXT vocabulary. 


d --- d (executing) 

а --- (compiling) P 
If compiling, compile a stack double 
number into a literal. Later execution 
of the definition containing the literal 
will push it to the stack. If executing, 
the number will remain on the stack. 


dl --- d2 : 
Convert dl to its double number two's 
complement. 


nl n2 --~ (execute) 
addr а --- (compile) P,C2,L0 
Occurs in a colon-definition in form: 

DO ... OOP 

DO ees) FLOP 
At run-time, DO begins a sequence with 
repetitive execution controlled by a loop 
limit nl and an index with initial value 
n2. DO removes these from the stack. Upon 
reaching LOOP the index is incremented by 
one. Until the new index equals or exceeds 
the limit, execution loops back to just 
after DO; otherwise the loop parameters 
are discarded and execution continues 
ahead. Both nl and n2 are determined at 
run-time and may be the result of other 
operations. Within a loop 'I' will copy 
the current value of the index to the stack. 
See I, LOOP, -*LOOP, LEAVE. 


When compiling within the colon-definition, 
DO compiles (DO), leaves the following 
address addr and n for later error checking. 


LO 
A word which defines the run-tíme action 
within a high-level defining word. DOES» 
alters the code field and first parameter 
of the new word to execute the sequence of 
compiled word addresses following DOES». 
Used in combination with «BUILDS. When the 
DOES» part executes it begins with the 
address of the first parameter of the new 
word on the stack. This allows interpre- 
tation using this area or its contents. 
Typical uses include the Forth assembler, 
multi-dimensional arrays, and compiler 
generation. 
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DP ---- addr U,L 
A user variable, the dictionary pointer, 
which contains the address of the next 
free memory above the dictionary. The 
value may be read by HERE and altered 
by ALLOT. 


DPL ---- addr U,LO 
A user variable containing the number of 
digits to the right of the decimal on 
double integer input. It may also be used 
to hold output column location of a decimal 
point, in user generated formatting. The 
default value on single number input is -l. 


DRO 

DR1 Installation dependent commands to select 
disc drives, by presetting OPFSET. The 
contents of OFFSET is added to the block 
number in BLOCK to allow for this selection. 
Offset is suppressed for error text so that 
it may always originate from drive 0. 

DROP n --- LO 
Drop the number from the stack. 

DUMP addr n --- LO 
Print the contents of n memory locations 
beginning at addr. Both addresses and 
contents are shown in the current numeric 
base. 

DUP n. --- n n LO 
Duplicate the value on the stack. 

ELSE addrl nl --- addr2 n2 (compiling) 


P,C2,L0 


Occurs within a colon-definition in the 
form: 

DE a ЖЕ (x ЖИБЕК 
At run-time, ELSE executes after the true 
part following IF. ELSE forces execution 
to skip over the following false part and 
resumes execution after the ENDIF. It has 
no stack effect. 


At compile-time, ELSE emplaces BRANCH 
reserving a branch offset, leaves the 
address addr2 and n2 for error testing. 
ELSE also resolves the pending forward 
branch from IF by calculating the offset 
from addrl to HERE and storing at addrl. 


ETE MORES Ты АСЫН СЕННЕН тн T AN A 


ЕМІТ 
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anre ph 


Transmit ascii character c to the selected 
output device. OUT is incremented for each 
character output. 


ЕМРТҮ-ВОҒҒЕН5 LO 


ENCLOSE 


ENDIF 


ERASE 


ERROR 


Mark all block-buffers as empty, not 
necessarily affecting the contents. Updated 
blocks are not written to the disc. This 

is also an initialization procedure before 
first use of the disc. 


addrl c --- 

addrl nl n2 n3 2 
The text scanning primitive used by WORD. 
From the text address addrl and an ascii 
delimiting character c, is determined 
the byte offset to the first non-delimiter 
character nl, the offset to the first de- 
limiter after the text n2, and the offset 
to the first character not included. This 
procedure will not process past an ascii 
'null', treating it as an unconditional 
delimiter. 


P,C2,L0 
This is an 'alias' or duplicate definition 
for UNTIL. 


addr n --- (compile) P,CO,LO 
Occurs in a colon-definition in form: 

LF ss. ENDIF 

IP oo. BLOE 2.0. SENDIE 
At run-time, ENDIF serves only as the 
destination of a forward branch from IF 
or ELSE. It marks the conclusion of the 
conditional structure. THEN is another 
name for ENDIF. Both names are supported 
in fig-FORTH. See also IF and ELSE. 


At compile-time, ENDIF computes the forward 
branch offset from addr to HERE and stores 
it at addr. n is used for error tests. 


addr n --- 
Clear a region of memory to zero from addr 
over n addresses. 


line --- in blk 
Execute error notification and restart of 
system. WARNING is first examined. If 1, 
the text of line n, relative to screen 4 
of drive 0 is printed. This line number 
may be positive or negative, and beyond 
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just screen 4. If WARNING=0, n is just 
printed as a message number (non-disc 
installation). If WARNING is -1, the 
definition (ABORT) is executed, which 
executes the system ABORT. The user may 
cautiously modify this execution by altering 
(ABORT). fig-FORTH saves the contents of 

IN and BLK to assist in determining the 
location of the error. Final action is 
execution of QUIT. 


EXECUTE addr --- 
Execute the definition whose code field 
address is on the stack. The code -field 
address is also called the compilation 
address. 


EXPECT addr count  --- LO 
Transfer characters from the terminal to 
address, until a "return" or the count of 
characters have been received. One or more 
nulls are added at the end of the text. 


FENCE --- addr U 
A user variable containing an address below 
which FORGETting is trapped. To forget 
below this point, the user must alter the 
contents of FENCE. 


FILL addr quan b ==- 
Fill memory at the address with the spec- 
ified quantity of bytes b. 


FIRST ==> n 
A constant that leaves the address of the 
first (lowest) block buffer. 


FLD --- addr U 
A user variable for control of number 
output field width. Presently unused in 
fig-FORTH. 


FORGET E,LO 

Executed in the form: 
FORGET  cccc 

Deletes definition named cccc from the 
dictionary with all entries physically 
following it. In fig-FORTH, an error 
message will occur if the CURRENT and 
CONTEXT vocabularies are not currently 
the same. 


FORTH P,Ll 
The name of the primary vocabulary. 
Execution makes FORTH the CONTEXT 
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vocabulary. Until additional user vocab- 
ularies are defined, new user definitions 
become a part of FORTH. FORTH is immedi- 
ate, so it will execute during the cre- 
ation of a colon-definition, to select 
this vocabulary at compile-time. 


HERE --- addr LO 
Leave the address of the next available 
dictionary location. 


HEX LO 
Set the numeric conversion base to six- 
teen (hexadecimal). - 3 


HLD --- addr LO 
A user variable that holds the address 
of the latest character of text during | 
numeric output conversion. | 


HOLD елген LO 
Used between <# and Ғ> to insert an ascii 
character into a pictured numeric output 
string. e.g. 2E HOLD will place a 
decimal point. 

I war 2 C,LO 
Used within a DO-LOOP to copy the loop 
index to the stack. Other use is imple- 
mentation dependent. See R. 

ID. addr --- 

Print a definition's name from its name 
field address. 

IF f --- (run-time) 


-=-= addr n (compile) P,C2,L0 
Occurs in a colon-definition in the form: 

IP (tp) ... ENDIF 

IP (tp) ... ELSE (fp) ... ENDIF 
At run-time, IF selects execution based on 
a boolean flag. If f is true (non-zero), 
execution continues ahead thru the true 
part. If f is false (zero), execution skips 
until just after ELSE to execute the false 
part. After either part, execution resumes 
after ENDIF. ELSE and its false part are 
optional. If missing, false execution skips 
to just after ENDIF. 





At compile-time, IF compiles OBRANCH and 
reserves space for an offset at addr. addr 
and n are used later for resolution of the 
offset and error testing. 





IMMEDIATE 
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INTERPRET 
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Mark the most recently made definition so 

that when encountered at compile time, it 

will be executed rather than being compiled. 
i.e. the precedence bit in its header is 

set. This method allows definitions to 

handle unusual compiling situations, rather 
than build them into the fundamental compiler. 
The user may force compilation of an immediate 
definition by preceeding it with [COMPILE]. 


=== addr LO 

A user variable containing the byte offset 
within the current input text buffer (ter- 
minal or disc) from which the next text 
will be accepted. WORD uses and moves the 
value of IN. 


from to --- 

Print the first line of each screen over 
the range from, to. This is used to view 
the comment lines of an area of text on 
disc screens. 


The outer text interpreter which sequen- 
tially executes or compiles text from 

the input stream (terminal or disc) depen- 
ding on STATE. If the word name cannot be 
found after a search of CONTEXT and then 
CURRENT, it is converted to a number ac- 
cording to the current base. That also 
failing, an error message echoing the 
name with a "?" will be given. Text input 
will be taken according to the convention 
for WORD. If a decimal point is found as 
part of a number, a double number value 
will be left. The decimal point has no 
other purpose than to force this action. 
See NUMBER. 


--- с LO 
Leave the ascii value of the next terminal 
key struck. 


“== addr 
Leave the name field address of the top- 
most word in the CURRENT vocabulary. 


C,LO 
Force termination of a DO-LOOP at the next 
opportunity by setting the loop limit equal 
to the current value of the index. The 
index itself remains unchanged, and execut- 
ion proceeds normally until LOOP or +LOOP 
is encountered. 


LFA 


LIMIT 


LIST 


LIT 


LITERAL 


LOOP 
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pfa --- lfa 

Convert the parameter field address of a 
dictionary definition to its link field 
address. 


--- A 
A constant leaving the address just above 
the highest memory available for a disc 
buffer. Usually this is the highest system 
memory. 


n --- LO 
Display the ascii text of screen n on the 
selected output device. SCR contains the 
screen number during and after this process. 


=== с2,10 
Within a colon-definition, LIT is auto- 
matically compiled before each 15 bit 
literal number encountered in input text. 
Later execution of LIT causes the contents 
of the next dictionary address to be pushed 
to the stack. 


n --- (compiling) P,C2,L0 
If compiling, then compile the stack value 
n as a 16 bit literal. This definition is 
immediate so that it will execute during 

a colon-definition. The intended use is: 

: xxx ( calculate ) LITERAL ; 
Compilation is suspended for the compile- 
time calculation of a value. Compilation 
is resumed and LITERAL compiles this value. 


--- 10 
Begin interpretation of screen n. Loading 
will terminate at the end of the screen or 
at ;S. See ;5 and -->. 


addr n --- (compiling) P,C2,L0 
Occurs in a colon-definition in the form: 
DO ... LOOP 

At run-time, LOOP selectively controls 
branching back to the corresponding DO 
based on the loop index and limit. The 

loop index is incremented by one and com- 
pared to the limit. The branch back to 

DO occurs until the index equals or exceeds 
the limit. At that time, the parameters 

are discarded and execution continues ahead. 


At compile-time, LOOP compiles (LOOP) and 
uses addr to calculate an offset to DO. 
n is used for error testing. 


—— 
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nl n2 ie ee d 

A mixed magnitude math operation which 
leaves the double number signed pro- 
duct of two signed numbers. 


d nbl -— n2 83 

A mixed magnitude math operator which 
leaves the signed remainder n2 and signed 
quotient n3, from a double number dividend 
and divisor nl. The remainder takes its 
sign from the dividend. 


ual u? --- (43 ud4 

An unsigned mixed magnitude math oper- 
ation which leaves a double quotient ud4 
and remainder u3, from a double dividend 
udl and single divisor u2. 


nl n2 --- max LO 
Leave the greater of two numbers. 


a em 
Print on the selected output device the 
text of line n relative to screen 4 of 
drive 0. n may be positive or negative. 
MESSAGE may be used to print incidental 
text such as report headers. If WARNING 
is zero, the message will simply be 
printed as a number (disc un-available). 


nl n2 --- min LO 
Leave the smaller of two numbers. 


nl * n2 LO 
Leave the two's complement of a number. 


nl n2 --- mod LO 
Leave the remainder of nl/n2, with the 
same sign as nl. 


Exit to the system monitor, leaving a 
re-entry to Forth, if possible. 


addrl addr2 n --- 

Move the contents of n memory cells (16 
bit contents) beginning at addrl into n 
cells beginning at addr2. The contents of 
addrl is moved first. This definition is 
appropriate on word addressing computers. 


This is the inner interpreter that uses 
the interpretative pointer IP to execute 


— P Een 
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compiled Forth definitions. It is not 
directly executed but is the return 
point for all code procedures. It acts 
by fetching the address pointed by IP, 
storing this value in register W. It 
then jumps to the address pointed to by 
the address pointed to by W. W points 
to the code field of a definition which 
contains the address of the code which 
executes for that definition. This usage 
of indirect threaded code is a major 


. contributor to the power, portability, 


and extensibility of Forth. Locations 
of IP and W are computer specific. 


pfa --- nfa 
Convert the parameter field address of 
a definition to its name field. 


addr --- d 

Convert a character string left at addr 
with a preceeding count, to a signed 
double number, using the current numeric 
base. If a decimal point is encountered 
in the text, its position will be given 
in DPL, but no other effect occurs. If 
numeric conversion is not possible, an 
error message will be given. 


--- addr U 
A user variable which may contain a 
block offset to disc drives. The con- 
tents of OFFSET is added to the stack 
number by BLOCK. Messages by MESSAGE are 
independent of OFFSET. See BLOCK, DRO, 
DRl, MESSAGE. 


nl n2 --- or LO 
Leave the bit-wise Fes or of two 
16 bit values. 


a addr U 
A user variable that contains a value 
incremented by EMIT. The user may alter 
and examine OUT to control display for- 
matting. 


nl 82 ===. nl n2 al LO 
Copy the second stack value, placing it 
as the new top. 


--- addr LO 
Leave the address of the text output 
buffer, which is a fixed offset above 
HERE. 
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nfa --- рға 

Convert the name field address of a 
compiled definition to its parameter 
field address. 


Not Implemented in 2068 FIG-FORNTH 


--- addr 

A variable containing the address of the 
disc buffer most recently referenced. 
The UPDATE command marks this buffer to 
be later written to disc. 


Not Implemented in 2068 FIG-FORTH 


This code sequence stores machine reg- 
ister contents over the topmost compu- 
tation stack value and returns to NEXT. 
It is not directly executable, but is a 
Forth re-entry point after machine code. 


Input 80 characters of text (or until 

a "return") from the operators terminal. 
Text is positioned at the address con- 
tained in TIB with IN set to zero. 


Ll 
Clear the return stack, stop compilation, 
and return control to the operators ter- 
minal. No message is given. 


-—— n 
Copy the top of the return stack to the 
computation stack. 


--- addr U 
A user variable which may contain the 
location of an editing cursor, or other 
file related function. 


addr blk f --- 
The fig-FORTH standard disc read-write 
linkage. addr specifies the source or 
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destination block buffer, blk is the 
sequential number of the referenced 
block; and f is a flag for f=0 write 
and f»1 read. R/W determines the loca- 
tion on mass storage, performs read- 
write and performs any error checking. 


теі LO 
Remove the top value from the return 
stack and leave it on the computation 
stack. See >R and В. 


--- addr U 
A user variable containing the initial 
location of the return stack. Pronounced 
R-zero. See RP! 


addr n --- (compiling) P,C2 

Used within a colon-definition in the form: 
BEGIN ... WHILE ... REPEAT 

At run-time, REPEAT forces an uncondition- 

al branch back to just after the corres- 

ponding BEGIN. 


At compile-time, REPEAT compiles BRANCH 
and the offset from HERE to addr. n is 
used for error checking. 


nl n2 n3 --- n2 n3 nl LO 
Rotate the top three values on the stack, 
bringing the third to the top. 


A computer dependent procedure to inital- 
ize the return stack pointer from user 
variable RO. 


В = 4 
Sign extend a single number to form a 
double number. 


---  addr U 
A user variable that contains the initial 
value for the stack pointer. Pronounced 
S-zero. See SP! 


т-- addr U 
A user variable containing the screen 
number most recently referenced by LIST. 


n d --- d LO 
Stores an ascii "-" sign just before a 
converted numeric output string in the 
text output buffer when n is negative. 
n is discarded, but double number d is 








Page 30 


USE --- addr 
A variable containing the address of the 
block buffer to use next, as the least 
recently written. 


USER Do m LO 

A defining word used in the form: 
n USER. сесе 

which creates a user variable ccecce. 
The parameter field of cccc contains n 
as a fixed offset relative to the user 
pointer register UP for this user vari- 
able. When cccc is later executed, it 
places the sum of its offset and the 
user area base address on the stack as 
the storage address of that particular 
variable. 


VARIABLE E,LO 

A defining word used in the form: 
n VARIABLE  cccc 

When VARIABLE is executed, it creates 
the definition cccc with its parameter 
field initialized to n. When cccc is 
later executed, the address of its para- 
meter field (containing n) is left on 
the stack, so that a fetch or store may 
access this location. 


VOC-LINK w- addr U 
A user variable containing the address 
of a field in the definition of the most 
recently created vocabulary. All vocab- 
ulary names are linked by these fields to 
allow control for FORGETting thru multi- 
ple vocabularies. 


VOCABULARY E,L 

A defining word used in the form: 
VOCABULARY  cccc 

to create a vocabulary definition cccc. 
Subsequent use of cccc will make it the 
CONTEXT vocabulary which is searched 
first by INTERPRET. The sequence "cccc 
DEFINITIONS" will also make cccc the 
CURRENT vocabulary into which new def- 
initions are placed. 


In fig-FORTH, cccc will be so chained as 
to include all definitions of the vocab- 
ulary in which cccc is itself defined. 

All vocabularies ultimately chain to Forth. 
By convention, vocabulary names are to be 
declared IMMEDIATE. See VOC-LINK. 
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List the names of the definitions in the 
context vocabulary. "Break" will terminate 
the listing. 


---  addr U 

A user variable containing a value control- 
ling messages. If it = 1, disc is present, 
and screen 4 of drive 0 is the base loca- 
tion for messages. If it = 0, no disc is 
present and messages will be presented by 
number. If it = -1, execute (ABORT) for a 
user specified procedure. See MESSAGE, ERROR. 


f --- (run-time) 
adl nl --- adl nl ad2 n2 P,C2 
Occurs in a colon-definition in the form: 
BEGIN ... WHILE (tp) oe REPEAT 
At run-time, WHILE selects conditional 
execution based on boolean flag f. If f 
is true (non-zero), WHILE continues exe- 
cution of the true part thru REPEAT, which 
then branches back to BEGIN. If f is false 
(zero), execution skips to just after 
REPEAT, exiting the structure. 


At compile-time, WHILE emplaces (0BRANCH) 
and leaves ad2 of the reserved offset. 
The stack values will be resolved by REPEAT. 


--- addr U 
In fig-FORTH, a user variable containing 
the maximum number of letters saved in 

the compilation of a definitions’ name. 

It must be 1 thru 31, with a default value 
of 31. The name character count and its 
natural characters are saved, up to the 
value in WIDTH. The value may be changed 
at any time within the above limits. 


с --- LO 
Read the next text characters from the 
input stream being interpreted, until a 
delimiter c is found, storing the packed 
character string beginning at the dict- 
ionary buffer HERE. WORD leaves the char- 
acter count in the first byte, the char- 
acters, and ends with two or more blanks. 
Leading occurances of c are ignored. If 
BLK is zero, text is taken from the term- 
inal input buffer, otherwise from the 
disc block stored in BLK. See BLK, IN. 
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maintained. Must be used between <# and 
i». 


Used during word definition to toggle the 
“smudge bit" in a definitions' name field. 
This prevents an uncompleted definition 

from being found during dictionary searches, 
until compiling is completed without error. 


A computer dependent procedure to initial- 
ize the stack pointer from SO. 

==- addr 

A computer dependent procedure to return 
the address of the stack position to the 
top of the stack, as it was before SP@ 
was executed. (e.g. 1 2 SPQ Q . . . 
would type 2 2 1) 


LO 
Transmit an ascii blank to the output 
device. 
M. eim LO 
Transmit n ascii blanks to the output 
device. 
--- addr LO,U 


A user variable containing the compil- 
ation state. A non-zero value indicates 
compilation. The value itself may be im- 
plementation dependent. 


nl n2 - n2 Bl LO 
Exchange the top two values on the stack. 


A no-operation word which can mark the 
boundary between applications. By for- 
getting TASK and re-compiling, an ap- 
plication can be discarded in its entire- 


ty. 


P,CO,LO 
An alias for ENDIF. 


---. addr - 9 
А user variable containing the address 
of the terminal input buffer. 


addr b --- 
Complement the contents of addr by the 
bit pattern b. 


I ———————---EEEN 
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TRAVERSE addrl n --- addr2 
Move across the name field of a fig- 
FORTH variable length name field. addrl 
is the address of either the length byte 
or the last letter. If n=l, the motion 
is toward hi memory; if п=-1, the motion 
is toward low memory. The addr2 resulting 
is address of the other end of the name. 


TRIAD scr --- 

Display on the selected output device the 
three screens which include that numbered 
Scr, beginning with a screen evenly div- 
isable by three. Output is suitable for 
Source text records, and includes a ref- 
erence line at the bottom taken from line 
lS of screen 4. 


TYPE addr count --- LO 
Transmit count characters from addr to 
the selected output device. 


U* ul u2 --- ud 
Leave the unsigned double number product 
of two unsigned numbers. 


U/ ud ul --- 2 u3 
Leave the unsigned remainder u2 and un- 
Signed quotient u3 from the unsigned 
double dividend ud and unsigned divisor 


ul. 

UNTIL f --- (run-time) 
addr n --- (compile) P,C2,L0 
Occurs within a colon-definition in the 
form: 


BEGIN ... UNTIL 
At run-time, UNTIL controls the condition- 
al branch back to the corresponding BEGIN. 
If f is false, execution returns to just 
after BEGIN; if true, execution continues 
ahead. 


At compile-time, UNTIL compiles (OBRANCH) 
and an offset from HERE to addr. n is 
used for error tests. 


UPDATE LO 
Marks the most recently referenced block 
(pointed to by PREV) as altered. The 
block will subsequently be transferred 
automatically to disc should its buffer 
be required for storage of a different 
block. 
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This is a pseudonym for the "null" or 
dictionary entry for a name of one char- 
acter of ascii null. It is the execution 
procedure to terminate interpretation 

of a line of text from the terminal or 
within a disc buffer, as both buffers 
always have a null at the end. 


nl n2 --- | xor Ll 
Leave the bitwise logical exclusive-or 
of two values. 


me Big kak: 

Used in colon-definitions in the form: 

: ххх [words | more ; 
Suspend compilation. The words after [ 
are executed, not compiled. This allows 
calculation or compilation exceptions 
before resuming compilation with ]. 
See LITERAL, ]. 


P,C 

Used in a colon-definition in the form: 
Xxx  [COMPILE] FORTH ; 

[COMPILE] will force the compilation of 
an immediate definition, that would other- 
wise execute during compilation. The above 
example will select the FORTH vocabulary 
when xxx executes, rather than at compile- 
time. 


Ll 
Resumes compilation, to the completion 
of a colon-definition. See [. 
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EDITOR USER MANUAL 


by BILL STODDART 
of FIG, UNITED KINGDOM 


Each screen is organized as 16 lines with 64 characters 
per line. The FORTH screens are merely an arrangement 
of virtual memory and need not correspond exactly with 
the screen format of a particular terminal. 


Selecting a Screen and Input of Text 


To start an editing session, the user types EDITOR to 
invoke the appropriate vocabulary. 
Next, type in EMPTY-BUFFERS. 


The screen to be edited is then selected, using either: 


n LIST (list screen n and select it for editing) OR 
n CLEAR (clear screen n and select for editing) 


To input new text to screen n after LIST or CLEAR, the 
P (out) command is used. 


EXAMPLE: 


0 P THIS IS HOW 
ІР TO INPUT TEXT 
2 P TO LINES 0, 1, AND 2 OF THE SELECTED SCREEN. 


Line Editinq 


During this description of the editor, reference is 
made to PAD. This is a text buffer which may hold a 
line of text used by or saved with a line editing 
command, or a text string to be found or deleted by 
a string editing command. 


PAD can be used to transfer a line from one screen to 
another, as well as to perform edit operations within 
a single screen. 


n H 
n. D 
"n T 
n R 
nx 
n E 
n S 
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Line Editor Commands 
Hold line n at PAD (used by system more often 
than by user.) 


Delete line n but hold it in PAD. Line 15 
becomes blank as lines n+l to 15 move up 1 line. 


Type line n and save it in PAD. 

Replace line n with the text in PAD. 
Insert the text from PAD at line n, moving 
the old line n and following lines down. 
Line 15 is lost. 

Erase line n with blanks. 

Spread at line n. п and subsequent lines 


move down 1 line. Line n becomes blank. 
Line 15 is lost. 


Cursor Control and String Editing 


The screen of text being edited resides in a buffer 


area of 
holding 


storage. The editing cursor is a variable 
an offset into this buffer area. Commands 


are provided for the user to position the cursor, 
either directly or by searching for a string of buffer 
text, and to insert or delete text at the cursor 


position. 
Commands to Position the Cursor 
TOP Position the cursor at the start of the screen. 
n M Move the cursor by a signed amount n and print 
the cursor line. The position of the cursor on 
its line is shown by an «- (arrow) 
String Editing Commands 
F text Search forward from the current cursor po- 


sition until string "text" is found. The 
cursor is left at the end of the text string 
and the cursor line is printed. If the 
string is not found, an error message is 
given and the cursor is repositioned at the 
top of screen. 








B 

N 

Kc kext 

C text 
TILL text 
NOTE: 

n LIST 

n CLEAR 


nl n2 COPY 


FLUSH 
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Used after F to back up the cursor by the 
length of the most recent text. 


Find the next occurrence of the string 
found by an F command. 


Find and delete the string "text". 


Copy in text to the cursor line at the 
cursor position. 


Delete on the cursor line from the cursor 
till the end of the text string "text". 


Typing C with no text will copy a null 
into the text at the cursor position. 
This will abruptly stop later compiling! 
To delete this error, type TOP X [enter]. 


Screen Editing Commands 


List screen n and select it for editing. 


Clear screen n with blanks and select it 
for editing. 


Copy screen nl to screen n2. 


List the current screen. The cursor line 
is relisted after the screen listing, to 
show the cursor position. 


Used at the end of an editing session to 
ensure that all entries and updates of 
text have been transferred to disc. 


TEXT 


LINE 


WHERE 


R# 


#LOCATE 


#LEAD 


#LAG 
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Editor Glossary 


c 
Accept following text to pad. c is text 
delimiter. 


n --- addr 
Leave address of line n of current screen. 
This address will be in the disc buffer area. 


nl n2 -=--> 

n2 is the block no., nl is offset into block. 
If an error is found in the source when 
loading from disc, the recovery routine 
ERROR leaves these values on the stack to 
help the user locate the error. WHERE uses 
these to print the screen and line nos. and 
a picture of where the error occurred. 


---  addr 

A user variable which contains the offset 
of the editing cursor from the start of 
the screen. 


--- nl n2 
From the cursor position determine the 
line-no n2 and the offset into the line nl. 


---  line-address  offset-to-cursor 
---  cursor-addr  count-after-cursor-till-EOL 


addr line-no --- 
Move a line of text from addr to line of 
current screen. 


n 
Hold numbered line at PAD. 


n 
Erase line n with blanks. 


n 
Spread. Lines n and following move down. 
n becomes blank. 


n 
Delete line n, but hold in PAD. 


n ә өте axo 


Move cursor by a signed amount and print 
its line. 





CLEAR 


FLUSH 


COPY 


“TEXT 


lLINE 


FIND 
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n = e 
Type line n and save in PAD. 


o — 


List the current screen. 


n 
Replace line n with the text in PAD. 


n — — 


Put the following text on line n. 


n —— — 


Spread at line n and insert text from PAD. 


Position editing cursor at top of screen. 


n с" — — 
Clear screen n, can be used to select screen 
n for editing. 


Write all updated buffers to disc. This has 
been modified to cope with an error in the 
Micropolis CPM disc drivers. 


nl n2 --- 
Copy screen nl to screen n2. 


addrl count addr2 -- boolean 
True if strings exactly match. 


cursor-addr bytes-left-till-EOL str-addr str-count 
жә”: cursor-advance-till-end-of-matching-text 
-7- ff bytes-left-till-EOL 

Match the string at str-addr with all strings 

on the cursor line forward from the cursor. 

The arguments left allow the cursor R# to be 
updated either to the end of the matching 

text or to the start of the next line. 


--- f 

Scan the cursor line for а match to PAD text. 
Return flag and update the cursor Кф to the 
end of matching text, or to the start of the 
next line if no match is found. 


Search for a match to the String at PAD, 
from the cursor position till the end of 
Screen. If no match found, issue an error 
message and reposition the cursor at the 
top of screen. 


ТТИ 
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DELETE n == 
Delete n characters prior to the cursor. 


N -- =» 
Find next occurrence of PAD text. 


F ee ee 
Input following text to PAD and search for 


match from cursor position till end of screen. 


B жаз — өшу 
Backup cursor by text in PAD. 


Xx —— — 
Delete next occurrence of following text. 


TILL --- 
Delete on cursor line from cursor to end of 
the following text. 


с CET 
Spread at cursor and copy the following text 
into the cursor line. 


